	.file "asm_test.pas"

.section .text

.section .text
	.balign 4
	.balign 4
.globl	PASCALMAIN
PASCALMAIN:
.globl	_main
_main:
	pushl	%ebp
	movl	%esp,%ebp
	subl	$56,%esp
	movl	%ebx,-56(%ebp)
	movl	%esi,-52(%ebp)
	movl	%edi,-48(%ebp)
	call	FPC_INITIALIZEUNITS
	leal	-40(%ebp),%eax
	call	SYSTEM_GETHEAPSTATUS$$THEAPSTATUS
	movl	$U_P$PROGRAM_HEAP_STATUS,%edi
	leal	-40(%ebp),%esi
	cld
	movl	$10,%ecx
	rep
	movsl
	call	fpc_get_output
	movl	%eax,%ebx
	movl	U_P$PROGRAM_HEAP_STATUS+16,%ecx
	movl	%ebx,%edx
	movl	$0,%eax
	call	fpc_write_text_uint
	call	FPC_IOCHECK
	movl	%ebx,%eax
	call	fpc_writeln_end
	call	FPC_IOCHECK
	call	fpc_get_input
	movl	%eax,%ebx
	movl	%ebx,%eax
	call	fpc_readln_end
	call	FPC_IOCHECK
	call	FPC_DO_EXIT
	movl	-56(%ebp),%ebx
	movl	-52(%ebp),%esi
	movl	-48(%ebp),%edi
	leave
	ret
	.balign 4

.section .data
	.ascii	"FPC 2.0.2 [2005/11/26] for i386 - Win32"
	.balign 16
	.balign 16
.globl	THREADVARLIST_P$PROGRAM
THREADVARLIST_P$PROGRAM:
	.long	0
	.balign 4
.globl	FPC_THREADVARTABLES
FPC_THREADVARTABLES:
	.long	2
	.long	THREADVARLIST_SYSTEM
	.long	THREADVARLIST_P$PROGRAM
	.balign 4
.globl	FPC_RESOURCESTRINGTABLES
FPC_RESOURCESTRINGTABLES:
	.long	0
	.balign 4
.globl	INITFINAL
INITFINAL:
	.long	1,0
	.long	INIT$_SYSTEM
	.long	FINALIZE$_SYSTEM
	.balign 4
.globl	__stklen
__stklen:
	.long	262144
.globl	__heapsize
__heapsize:
	.long	0

.section .data

.section .data

.section .data

.section .bss

.section .bss
	.balign 4
	.lcomm	U_P$PROGRAM_A,4

.section .bss
	.balign 4
	.lcomm	U_P$PROGRAM_B,4

.section .bss
	.balign 4
	.lcomm	U_P$PROGRAM_P,4

.section .bss
	.balign 16
	.lcomm	U_P$PROGRAM_HEAP_STATUS,40

